5 FORN=49152TO49385:READA:POKEN,A:NEXT
10 FORN=0TO7
20 PRINT"F"N+1"=";:INPUTF$
30 IF LEN(F$)>10THENX$=LEFT$(X$,10)
40 FORX=1TOLEN(F$)
50 X$=MID$(F$,X,1)
60 IFX$="_"THENX$=CHR$(13)
65 IFX$=""THEN85
70 POKE49385+N*10+X,ASC(X$)
80 NEXT
85 FORR=XTO10:POKE49385+N*10+R,0:NEXT
90 NEXT
100 SYS12*4096
110 NEW
200 DATA 120, 162, 13, 160, 192, 142, 20, 3, 140, 21, 3, 88, 96, 72
201 DATA  138, 72, 152, 72, 165, 215, 201, 133, 240, 37, 201, 137, 240, 56
202 DATA  201, 134, 240, 75, 201, 138, 240, 91, 201, 135, 240, 107, 201, 139
203 DATA  240, 123, 201, 136, 208, 3, 76, 187, 192, 201, 140, 208, 3, 76
204 DATA  207, 192, 76, 226, 192, 162, 0, 189, 234, 192, 201, 0, 208, 3
205 DATA  76, 224, 192, 157, 119, 2, 232, 224, 10, 208, 238, 76, 224, 192
206 DATA  162, 0, 189, 244, 192, 201, 0, 208, 3, 76, 224, 192, 157, 119
207 DATA  2, 232, 224, 10, 208, 238, 76, 224, 192, 162, 0, 189, 254, 192
208 DATA  201, 0, 240, 108, 157, 119, 2, 232, 224, 10, 208, 241, 76, 224
209 DATA  192, 162, 0, 189, 8, 193, 201, 0, 240, 88, 157, 119, 2, 232
210 DATA  224, 10, 208, 241, 76, 224, 192, 162, 0, 189, 18, 193, 201, 0
211 DATA  240, 68, 157, 119, 2, 232, 224, 10, 208, 241, 76, 224, 192, 162
212 DATA  0, 189, 28, 193, 201, 0, 240, 48, 157, 119, 2, 232, 224, 10
213 DATA  208, 241, 76, 224, 192, 162, 0, 189, 38, 193, 201, 0, 240, 28
214 DATA  157, 119, 2, 232, 224, 10, 208, 241, 76, 224, 192, 162, 0, 189
215 DATA  48, 193, 201, 0, 240, 8, 157, 119, 2, 232, 224, 10, 208, 241
216 DATA  134, 198, 104, 168, 104, 170, 104, 76, 49, 234